home *** CD-ROM | disk | FTP | other *** search
- // Copyright (C) 1997-2002 Alias|Wavefront,
- // a division of Silicon Graphics Limited.
- //
- // The information in this file is provided for the exclusive use of the
- // licensees of Alias|Wavefront. Such users have the right to use, modify,
- // and incorporate this code into other products for purposes authorized
- // by the Alias|Wavefront license agreement, without fee.
- //
- // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- // PERFORMANCE OF THIS SOFTWARE.
- //
- // Alias|Wavefront Script File
- // MODIFY THIS AT YOUR OWN RISK
- //<doc>
- //<name CBG>
- //<owner "Alias|Wavefront Unsupported">
- //
- //<synopsis>
- // string CBG(string $callProc, string $parent, string $whichCallback)
- //
- //<description>
- // Generate a string for control callbacks in the form:
- // callbackProc "parent" "whichCallback"
- //
- //<flags>
- // string $callProc Name of procedure to be called
- // string $parent Parent widget of control where callback will live
- // string $whichCall Name of callback
- //
- //<returns>
- // string : Control callback string, ready for execution
- //
- //<examples>
- // string $cb = CBG("CallMe", "MyWidget", "AfterIHappen");
- // // Result : CallMeCallback "MyWidget" "AfterIHappen" //
- //
- //</doc>
-
- global proc string CBG (string $callbackProc, string $parent, string $whichCallback)
- {
-
- return ($callbackProc + "Callback" + " \"" + $parent + "\" \"" + $whichCallback + "\"");
- }
-